home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / types.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  1.6 KB  |  66 lines
  1. if (!defined &_TYPES) {
  2.     eval 'sub _TYPES {1;}';
  3.     if (!defined &KERNEL) {
  4.     eval 'sub major {
  5.         local($x) = @_;
  6.         eval "((\'int\')((( &unsigned)($x)>>8)&0377))";
  7.     }';
  8.     }
  9.     eval 'sub unix_major {
  10.         local($x) = @_;
  11.         eval "((\'int\')((( &unsigned)($x)>>8)&0377))";
  12.     }';
  13.     if (!defined &KERNEL) {
  14.     eval 'sub minor {
  15.         local($x) = @_;
  16.         eval "((\'int\')(($x)&0377))";
  17.     }';
  18.     }
  19.     eval 'sub unix_minor {
  20.         local($x) = @_;
  21.         eval "((\'int\')(($x)&0377))";
  22.     }';
  23.     eval 'sub makedev {
  24.         local($x,$y) = @_;
  25.         eval "(( &dev_t)((($x)<<8) | ($y)))";
  26.     }';
  27.     if (defined( &vax) || defined( &tahoe)) {
  28.     }
  29.     if (defined( &mc68000)) {
  30.     }
  31.     if (!defined &_SIZE_T) {
  32.     eval 'sub _SIZE_T {1;}';
  33.     }
  34.     if (!defined &_TIME_T) {
  35.     eval 'sub _TIME_T {1;}';
  36.     }
  37.     eval 'sub NBBY {8;}';
  38.     if (!defined &FD_SETSIZE) {
  39.     eval 'sub FD_SETSIZE {256;}';
  40.     }
  41.     eval 'sub NFDBITS {($sizeof{ &fd_mask} *  &NBBY);}';
  42.     if (!defined &howmany) {
  43.     eval 'sub howmany {
  44.         local($x, $y) = @_;
  45.         eval "((($x)+(($y)-1))/($y))";
  46.     }';
  47.     }
  48.     eval 'sub FD_SET {
  49.         local($n, $p) = @_;
  50.         eval "(($p)-> &fds_bits[($n)/ &NFDBITS] |= (1 << (($n) %  &NFDBITS)))";
  51.     }';
  52.     eval 'sub FD_CLR {
  53.         local($n, $p) = @_;
  54.         eval "(($p)-> &fds_bits[($n)/ &NFDBITS] &= ~(1 << (($n) %  &NFDBITS)))";
  55.     }';
  56.     eval 'sub FD_ISSET {
  57.         local($n, $p) = @_;
  58.         eval "(($p)-> &fds_bits[($n)/ &NFDBITS] & (1 << (($n) %  &NFDBITS)))";
  59.     }';
  60.     eval 'sub FD_ZERO {
  61.         local($p) = @_;
  62.         eval " &bzero((\'char\' *)($p), $sizeof{*($p}))";
  63.     }';
  64. }
  65. 1;
  66.